TXT。 Option Explicit Private Sub Form_Click() Dim strA As String Dim intFileNum As Integer `Create a small file intFileNum = FreeFile Open FILEA For Output ...
txt) | *.txt CommonDialog1.FilterIndex = 1 CommonDialog1.Action = 1 Open CommonDialog1.FileName For Input As #1 Do If EOF(1) Then Exit Do Line Input #1 ...